home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / dev / Oberon / OberonV4 / loader / LoggerLib.def < prev    next >
Text File  |  1995-09-28  |  835b  |  36 lines
  1. DEFINITION MODULE LoggerLib;
  2.  
  3. FROM SYSTEM    IMPORT    ADDRESS;
  4. FROM ExecD    IMPORT    Library;
  5. IMPORT R; (* Register-Nummern *)
  6. (* Eigene Importe: *)
  7.  
  8. CONST
  9.   version = 40; (* Ihre Versionsnummer *)
  10.  
  11. TYPE
  12.   LoggerBasePtr = POINTER TO LoggerBase;
  13.   LoggerBase = RECORD
  14.     lib: Library;
  15.     (* Globale Variablen hier hinein! *)
  16.   END;
  17.  
  18. CONST
  19.   baseSize = SIZE(LoggerBase); (* Nur für M2LibLink wichtig *)
  20.  
  21. PROCEDURE LibOpen(myLib{R.A6}:LoggerBasePtr):ADDRESS;
  22. PROCEDURE LibClose(myLib{R.A6}:LoggerBasePtr):ADDRESS;
  23. PROCEDURE LibExpunge(myLib{R.A6}:LoggerBasePtr):ADDRESS;
  24. PROCEDURE LibExtFunc(myLib{R.A6}:LoggerBasePtr):ADDRESS;
  25.  
  26. (* Ihre Prozeduren: *)
  27.  
  28. PROCEDURE clear;
  29. PROCEDURE firstPos():LONGCARD;
  30. PROCEDURE nextPos():LONGCARD;
  31. PROCEDURE read(pos{R.D2}:LONGCARD):CHAR;
  32. PROCEDURE write(ch{R.D2}:CHAR);
  33. PROCEDURE writeStamp;
  34.  
  35. END LoggerLib.def
  36.